<!DOCTYPE html><html lang="zh-CN" data-theme="light"><head><meta charset="UTF-8"><meta http-equiv="X-UA-Compatible" content="IE=edge"><meta name="viewport" content="width=device-width, initial-scale=1.0, maximum-scale=1.0, user-scalable=no"><title>cl控制语言 | 樱桃小窝</title><meta name="keywords" content="AS/400"><meta name="author" content="樱桃先生"><meta name="copyright" content="樱桃先生"><meta name="format-detection" content="telephone=no"><meta name="theme-color" content="#ffffff"><meta name="description" content="控制语言(CL)概念CL 程序就是和RPG 相对应的，是控制语言（Control Language）。类型为CLP、CLLE 的源代码编译出来的程序，都属于CL 程序。CL 程序不像RPGLE 程序，在编写时，可以使用自由格式书写；一行的内容如果太长要，在最末尾处用“+”表示换行    编译此程序（一是，使用 CL 命令 CRTCLPGM，二是，使用PDM 菜单选项 14），然后CALL 之，系统">
<meta property="og:type" content="article">
<meta property="og:title" content="cl控制语言">
<meta property="og:url" content="http://example.com/posts/54d95d51/index.html">
<meta property="og:site_name" content="樱桃小窝">
<meta property="og:description" content="控制语言(CL)概念CL 程序就是和RPG 相对应的，是控制语言（Control Language）。类型为CLP、CLLE 的源代码编译出来的程序，都属于CL 程序。CL 程序不像RPGLE 程序，在编写时，可以使用自由格式书写；一行的内容如果太长要，在最末尾处用“+”表示换行    编译此程序（一是，使用 CL 命令 CRTCLPGM，二是，使用PDM 菜单选项 14），然后CALL 之，系统">
<meta property="og:locale" content="zh_CN">
<meta property="og:image" content="https://gitee.com/Xyingtao/blogimage/raw/master/img/AS400.jpg">
<meta property="article:published_time" content="2020-10-08T02:45:22.000Z">
<meta property="article:modified_time" content="2022-08-27T09:38:39.015Z">
<meta property="article:author" content="樱桃先生">
<meta property="article:tag" content="AS&#x2F;400">
<meta name="twitter:card" content="summary">
<meta name="twitter:image" content="https://gitee.com/Xyingtao/blogimage/raw/master/img/AS400.jpg"><link rel="shortcut icon" href="/img/favicon.png"><link rel="canonical" href="http://example.com/posts/54d95d51/"><link rel="preconnect" href="//cdn.jsdelivr.net"/><link rel="preconnect" href="//busuanzi.ibruce.info"/><link rel="stylesheet" href="/css/index.css"><link rel="stylesheet" href="https://cdn.jsdelivr.net/npm/@fortawesome/fontawesome-free/css/all.min.css" media="print" onload="this.media='all'"><link rel="stylesheet" href="https://cdn.jsdelivr.net/npm/@fancyapps/ui/dist/fancybox.min.css" media="print" onload="this.media='all'"><script>const GLOBAL_CONFIG = { 
  root: '/',
  algolia: undefined,
  localSearch: undefined,
  translate: undefined,
  noticeOutdate: undefined,
  highlight: {"plugin":"highlighjs","highlightCopy":true,"highlightLang":true,"highlightHeightLimit":false},
  copy: {
    success: '复制成功',
    error: '复制错误',
    noSupport: '浏览器不支持'
  },
  relativeDate: {
    homepage: false,
    post: false
  },
  runtime: '天',
  date_suffix: {
    just: '刚刚',
    min: '分钟前',
    hour: '小时前',
    day: '天前',
    month: '个月前'
  },
  copyright: undefined,
  lightbox: 'fancybox',
  Snackbar: undefined,
  source: {
    justifiedGallery: {
      js: 'https://cdn.jsdelivr.net/npm/flickr-justified-gallery/dist/fjGallery.min.js',
      css: 'https://cdn.jsdelivr.net/npm/flickr-justified-gallery/dist/fjGallery.min.css'
    }
  },
  isPhotoFigcaption: false,
  islazyload: true,
  isAnchor: false
}</script><script id="config-diff">var GLOBAL_CONFIG_SITE = {
  title: 'cl控制语言',
  isPost: true,
  isHome: false,
  isHighlightShrink: false,
  isToc: true,
  postUpdate: '2022-08-27 17:38:39'
}</script><noscript><style type="text/css">
  #nav {
    opacity: 1
  }
  .justified-gallery img {
    opacity: 1
  }

  #recent-posts time,
  #post-meta time {
    display: inline !important
  }
</style></noscript><script>(win=>{
    win.saveToLocal = {
      set: function setWithExpiry(key, value, ttl) {
        if (ttl === 0) return
        const now = new Date()
        const expiryDay = ttl * 86400000
        const item = {
          value: value,
          expiry: now.getTime() + expiryDay,
        }
        localStorage.setItem(key, JSON.stringify(item))
      },

      get: function getWithExpiry(key) {
        const itemStr = localStorage.getItem(key)

        if (!itemStr) {
          return undefined
        }
        const item = JSON.parse(itemStr)
        const now = new Date()

        if (now.getTime() > item.expiry) {
          localStorage.removeItem(key)
          return undefined
        }
        return item.value
      }
    }
  
    win.getScript = url => new Promise((resolve, reject) => {
      const script = document.createElement('script')
      script.src = url
      script.async = true
      script.onerror = reject
      script.onload = script.onreadystatechange = function() {
        const loadState = this.readyState
        if (loadState && loadState !== 'loaded' && loadState !== 'complete') return
        script.onload = script.onreadystatechange = null
        resolve()
      }
      document.head.appendChild(script)
    })
  
      win.activateDarkMode = function () {
        document.documentElement.setAttribute('data-theme', 'dark')
        if (document.querySelector('meta[name="theme-color"]') !== null) {
          document.querySelector('meta[name="theme-color"]').setAttribute('content', '#0d0d0d')
        }
      }
      win.activateLightMode = function () {
        document.documentElement.setAttribute('data-theme', 'light')
        if (document.querySelector('meta[name="theme-color"]') !== null) {
          document.querySelector('meta[name="theme-color"]').setAttribute('content', '#ffffff')
        }
      }
      const t = saveToLocal.get('theme')
    
          if (t === 'dark') activateDarkMode()
          else if (t === 'light') activateLightMode()
        
      const asideStatus = saveToLocal.get('aside-status')
      if (asideStatus !== undefined) {
        if (asideStatus === 'hide') {
          document.documentElement.classList.add('hide-aside')
        } else {
          document.documentElement.classList.remove('hide-aside')
        }
      }
    
    const detectApple = () => {
      if(/iPad|iPhone|iPod|Macintosh/.test(navigator.userAgent)){
        document.documentElement.classList.add('apple')
      }
    }
    detectApple()
    })(window)</script><meta name="generator" content="Hexo 5.4.2"></head><body><div id="sidebar"><div id="menu-mask"></div><div id="sidebar-menus"><div class="avatar-img is-center"><img src= "" data-lazy-src="https://s2.loli.net/2022/08/20/hk9Zvq4YRsIcnrw.jpg" onerror="onerror=null;src='/img/friend_404.gif'" alt="avatar"/></div><div class="sidebar-site-data site-data is-center"><a href="/archives/"><div class="headline">文章</div><div class="length-num">78</div></a><a href="/tags/"><div class="headline">标签</div><div class="length-num">65</div></a><a href="/categories/"><div class="headline">分类</div><div class="length-num">21</div></a></div><hr/><div class="menus_items"><div class="menus_item"><a class="site-page" href="/"><i class="fa-fw fas fa-home"></i><span> 主页</span></a></div><div class="menus_item"><a class="site-page" href="/archives/"><i class="fa-fw fas fa-archive"></i><span> 时间线</span></a></div><div class="menus_item"><a class="site-page" href="/categories/"><i class="fa-fw fas fa-folder-open"></i><span> 分类</span></a></div><div class="menus_item"><a class="site-page" href="/tags/"><i class="fa-fw fas fa-tags"></i><span> 标签</span></a></div><div class="menus_item"><a class="site-page" href="/gallery/"><i class="fa-fw fas fa-camera"></i><span> 图库</span></a></div><div class="menus_item"><a class="site-page" href="/messageboard/"><i class="fa-fw fas fa-comment-dots"></i><span> 留言板</span></a></div><div class="menus_item"><a class="site-page" href="/links/"><i class="fa-fw fas fa-link"></i><span> 友链</span></a></div><div class="menus_item"><a class="site-page" href="/about/"><i class="fa-fw fas fa-heart"></i><span> 关于</span></a></div></div></div></div><div class="post" id="body-wrap"><header class="post-bg" id="page-header" style="background-image: url('https://gitee.com/Xyingtao/blogimage/raw/master/img/AS400.jpg')"><nav id="nav"><span id="blog_name"><a id="site-name" href="/">樱桃小窝</a></span><div id="menus"><div class="menus_items"><div class="menus_item"><a class="site-page" href="/"><i class="fa-fw fas fa-home"></i><span> 主页</span></a></div><div class="menus_item"><a class="site-page" href="/archives/"><i class="fa-fw fas fa-archive"></i><span> 时间线</span></a></div><div class="menus_item"><a class="site-page" href="/categories/"><i class="fa-fw fas fa-folder-open"></i><span> 分类</span></a></div><div class="menus_item"><a class="site-page" href="/tags/"><i class="fa-fw fas fa-tags"></i><span> 标签</span></a></div><div class="menus_item"><a class="site-page" href="/gallery/"><i class="fa-fw fas fa-camera"></i><span> 图库</span></a></div><div class="menus_item"><a class="site-page" href="/messageboard/"><i class="fa-fw fas fa-comment-dots"></i><span> 留言板</span></a></div><div class="menus_item"><a class="site-page" href="/links/"><i class="fa-fw fas fa-link"></i><span> 友链</span></a></div><div class="menus_item"><a class="site-page" href="/about/"><i class="fa-fw fas fa-heart"></i><span> 关于</span></a></div></div><div id="toggle-menu"><a class="site-page"><i class="fas fa-bars fa-fw"></i></a></div></div></nav><div id="post-info"><h1 class="post-title">cl控制语言</h1><div id="post-meta"><div class="meta-firstline"><span class="post-meta-date"><i class="far fa-calendar-alt fa-fw post-meta-icon"></i><span class="post-meta-label">发表于</span><time class="post-meta-date-created" datetime="2020-10-08T02:45:22.000Z" title="发表于 2020-10-08 10:45:22">2020-10-08</time><span class="post-meta-separator">|</span><i class="fas fa-history fa-fw post-meta-icon"></i><span class="post-meta-label">更新于</span><time class="post-meta-date-updated" datetime="2022-08-27T09:38:39.015Z" title="更新于 2022-08-27 17:38:39">2022-08-27</time></span><span class="post-meta-categories"><span class="post-meta-separator">|</span><i class="fas fa-inbox fa-fw post-meta-icon"></i><a class="post-meta-categories" href="/categories/%E6%8A%80%E6%9C%AF/">技术</a><i class="fas fa-angle-right post-meta-separator"></i><i class="fas fa-inbox fa-fw post-meta-icon"></i><a class="post-meta-categories" href="/categories/%E6%8A%80%E6%9C%AF/AS-400/">AS/400</a></span></div><div class="meta-secondline"><span class="post-meta-separator">|</span><span class="post-meta-pv-cv" id="" data-flag-title="cl控制语言"><i class="far fa-eye fa-fw post-meta-icon"></i><span class="post-meta-label">阅读量:</span><span id="busuanzi_value_page_pv"><i class="fa-solid fa-spinner fa-spin"></i></span></span></div></div></div></header><main class="layout" id="content-inner"><div id="post"><article class="post-content" id="article-container"><h1 id="控制语言-CL"><a href="#控制语言-CL" class="headerlink" title="控制语言(CL)"></a>控制语言(CL)</h1><h2 id="概念"><a href="#概念" class="headerlink" title="概念"></a>概念</h2><p>CL 程序就是和RPG 相对应的，是控制语言（Control Language）。类型为CLP、CLLE 的源代码编译出来的程序，都属于CL 程序。<br>CL 程序不像RPGLE 程序，在编写时，可以使用自由格式书写；一行的内容如果太长要，在最末尾处用“+”表示换行  </p>
<p><img src= "" data-lazy-src="https://gitee.com/Xyingtao/blogimage/raw/master/img/image-20201008104723978.png" alt="image-20201008104723978"></p>
<p>编译此程序（一是，使用 CL 命令 <strong>CRTCLPGM</strong>，二是，使用PDM 菜单选项 14），然后CALL 之，系统就会执行命令WRKACTJOB，查看当前的活动作业，效果与在交互式命令行下输入WRKACTJOB 是一样的。当我们输入F12，退出WRKACTJOB 时，系统就会继续向下执行，发现是ENDPGM，表示程序结束了，于是判定执行完毕，退出至交互式画面。  </p>
<h2 id="CL编程"><a href="#CL编程" class="headerlink" title="CL编程"></a>CL编程</h2><h3 id="程序的开始与结束"><a href="#程序的开始与结束" class="headerlink" title="程序的开始与结束"></a>程序的开始与结束</h3><p><img src= "" data-lazy-src="https://gitee.com/Xyingtao/blogimage/raw/master/img/image-20201008104902668.png" alt="image-20201008104902668"></p>
<p>CL 程序，和RPGLE 程序一样，也可以有程序的入口参数，而且程序的入口参数都是可传递的（也就是输入的参数如果在程序中被修改过，那么原调用的程序中的相应参数也会进行变化。不过CL 的入口参数只能为<strong>字符型</strong>，或数字型的单个字段，不能象RPGLE 程序中那么多样化（字段、结构、数组、指针）。  </p>
<p>如果CL 程序没有入口参数时，那么就可以不需要后面的PARM 语句，直接写成PGM即可。  </p>
<h3 id="变量及其定义"><a href="#变量及其定义" class="headerlink" title="变量及其定义"></a>变量及其定义</h3><p>CL程序中的所有<strong>变量</strong>，都使用<code>&amp;</code>做为前缀，这一点与RPG 程序不同。比如说<br><code>PGM PARM（&amp;A &amp;B）</code>就表示入口参数为A、B 这两个变量  </p>
<p><img src= "" data-lazy-src="https://gitee.com/Xyingtao/blogimage/raw/master/img/image-20201008105056460.png" alt="image-20201008105056460"></p>
<p>在CL 程序中使用到的变量，都必须使用DCL 语句来定义：<br>定义变量FLD01，10 位长的字符型变量，定义变量FLD02，10 长，其中2 位小数的数字型变量。<br>除了字符、数字之外，CL 程序还可以定义逻辑变量(*LGL)，逻辑变量允许的值只为’1’或’0’。<br>不过通常有字符与数字也就够了。CL 程序的主要功能在于进行命令处理，而不是处理字符串以及数据库  </p>
<p>CL程序只能接收15位的decimal类型数值 如果超过十五位 接收会变成10位的char</p>
<h3 id="常用命令"><a href="#常用命令" class="headerlink" title="常用命令"></a>常用命令</h3><ol>
<li><p><strong>CHGVAR – 变量赋值</strong><br>CHGVAR VAR(&amp;FLD01) VALUE(‘ABCD’)</p>
<p>即是将变量FLD01 赋值成为’ABCD’(左对齐)， 同理，VALUE 的括号中也可以填写一个变量，即表示将此变量的值赋值到变量FLD01 中。数字型变量的赋值同样也是使用CHGVAR 语句。<br>当变量中只包含数字时（0—9），数字型变量与字符型变量可以使用CHGVAR语句进行转换，这一点与RPGLE 中的MOVE 语句比较类似。  </p>
</li>
<li><p><strong>IF – 条件判断语句</strong>  </p>
</li>
</ol>
<p><img src= "" data-lazy-src="https://gitee.com/Xyingtao/blogimage/raw/master/img/image-20201008105310823.png" alt="image-20201008105310823"></p>
<p>当变量FLD01 等于’1’时，将变量FLD02 中的值更改为’0’THEN 后面，即是当符合条件时，要执行的命令。写起来其实没有看上去那么复杂，多用F4 就会发现CL 程序简单。  </p>
<p><img src= "" data-lazy-src="https://gitee.com/Xyingtao/blogimage/raw/master/img/image-20201008105551399.png" alt="image-20201008105551399"></p>
<p>就比如上例，先写IF，然后按F4，在<strong>Condition</strong> 处填写条件语句，然后在Command 处填上CHGVAR，再按F4，再去填相应的处理语句，这样写，就比直接把整句抄下来就简单多了。<br>上面这种写法，只能在符合条件时，执行一条CL 语句；如果要执行多条，就必须写做：</p>
<figure class="highlight plaintext"><table><tr><td class="gutter"><pre><span class="line">1</span><br><span class="line">2</span><br><span class="line">3</span><br><span class="line">4</span><br></pre></td><td class="code"><pre><span class="line">IF COND(&amp;FLD01 *EQ &#x27;1&#x27;) THEN(DO)</span><br><span class="line">CHGVAR VAR(&amp;FLD02) VALUE(‘0’)  </span><br><span class="line">其它执行语句</span><br><span class="line">ENDDO</span><br></pre></td></tr></table></figure>
<p>ENDDO 在这里和循环没有任何关系，表示的是ENDIF 的意思，但是CL 语句里没有ENDIF，只有ENDDO。</p>
<p>IF 语句中，表示判断的关键字与RPGLE 中的Ifxx 操作码类似，有<br><code>*EQ *GT *LT *GE *LE *NE</code><br>用来表示逻辑关系的关键字有<br><code>*AND, *OR, *NOT</code>  </p>
<ol start="3">
<li><strong>GOTO – 跳转语句</strong>  </li>
</ol>
<p>GOTO 语句与RPGLE 中的GOTO 是一样的，都是跳转的意思。<br>FHSTAG：GOTO CMDLBL(FHSTAG)<br>注意，这里定义标签是用“：” 冒号  </p>
<ol start="4">
<li><strong>MONMSG – 监控错误信息</strong>  </li>
</ol>
<p>我们使用CL 语句时，执行的命令可能会报出一些异常错误，从而导致整个程序中断，需要手工干预。MONMSG 命令可以监控我们预定的错误信息，使CL 程序正常的向下运行。举例而言，<br>如果CL 程序中有如下语句：</p>
<figure class="highlight plaintext"><table><tr><td class="gutter"><pre><span class="line">1</span><br><span class="line">2</span><br></pre></td><td class="code"><pre><span class="line">CALL   PGM(FHS01R)</span><br><span class="line">MONMSG MSGID(CPF4131)</span><br></pre></td></tr></table></figure>
<p>则表示当系统调用程序FHS01R 时，如果发现有CPF4131（声明的文件重新编译过，但程序未重新编译）的错，那么CL 程序将不会异常中断，仅仅只是不运行程序FHS01R，然后继续向下执行CL 程序MONMSG 还可以用于在监控到错误信息之后，进行处理，如下：</p>
<figure class="highlight plaintext"><table><tr><td class="gutter"><pre><span class="line">1</span><br><span class="line">2</span><br><span class="line">3</span><br></pre></td><td class="code"><pre><span class="line">CALL PGM(FHS01R)</span><br><span class="line">MONMSG MSGID(CPF4131) EXEC(CHGVAR VAR(&amp;FLD01) +</span><br><span class="line">VALUE(&#x27;0&#x27;))</span><br></pre></td></tr></table></figure>
<p>这句话就表示当发现有CPF4131 的错误之时，将变量FLD01 赋值成为’0’如果要执行多句的话，和IF 语句的方法类似，也是使用DO 与ENDDO</p>
<figure class="highlight plaintext"><table><tr><td class="gutter"><pre><span class="line">1</span><br><span class="line">2</span><br><span class="line">3</span><br><span class="line">4</span><br></pre></td><td class="code"><pre><span class="line">MONMSG MSGID(CPF4131) EXEC(DO)</span><br><span class="line">CHGVAR VAR(&amp;FLD01) VALUE(‘0’)</span><br><span class="line">其它处理语句</span><br><span class="line">ENDDO  </span><br></pre></td></tr></table></figure>

<ol start="5">
<li><strong>%SST – 取字符串</strong>  </li>
</ol>
<p>CHGVAR VAR(&amp;FLD01) VALUE(%SST(&amp;FLD02 3 1))<br>表示将字符变量FLD02，从第3 位开始，取1 位，左对齐赋值到变量FLD01 中。%SST 的括号的参数中，第一个参数必须为字符型变量，第二个参数表示起始位，第三个参数表示要截取的长度  </p>
<ol start="6">
<li><strong>*CAT – 拼字符串</strong><figure class="highlight plaintext"><table><tr><td class="gutter"><pre><span class="line">1</span><br><span class="line">2</span><br></pre></td><td class="code"><pre><span class="line">DCL    VAR(&amp;FLD01) TYPE(*CHAR) LEN(10)</span><br><span class="line">CHGVAR VAR(&amp;FLD01) VALUE(&#x27;A&#x27; *CAT &#x27;B&#x27;)</span><br></pre></td></tr></table></figure>
即表示将10 位长的字符型变量赋值成为’AB ‘    </li>
</ol>
<p>‘A’， ‘B’，也可以使用变量，如</p>
<figure class="highlight plaintext"><table><tr><td class="gutter"><pre><span class="line">1</span><br></pre></td><td class="code"><pre><span class="line">CHGVAR VAR(&amp;FLD01) VALUE(&amp;FLD02 *CAT &amp;FLD03)</span><br></pre></td></tr></table></figure>
<p>要注意，*CAT 不能去掉字符串末尾的空，从效果上来看，有点类似于RPGLE 中的EVAL 操作码，而不是CAT 操作码</p>
<ol start="7">
<li><strong>读取文件</strong><figure class="highlight plaintext"><table><tr><td class="gutter"><pre><span class="line">1</span><br><span class="line">2</span><br><span class="line">3</span><br><span class="line">4</span><br></pre></td><td class="code"><pre><span class="line">DCL VAR(&amp;FLD01) TYPE(*CHAR) LEN(2)</span><br><span class="line">DCLF FILE(FHSLIB/PFFHS)</span><br><span class="line">RCVF</span><br><span class="line">CHGVAR VAR(&amp;FLD01) VALUE(&amp;FHS01)</span><br></pre></td></tr></table></figure>
以上这段CL 的意思，就是在CL 程序中读取PFFHS 文件，然后将读到的第一条记录赋值到CL 的临时变量FLD01 中。<br>如果要将一个文件从头读到尾，则可以用如下语句来实现：</li>
</ol>
<figure class="highlight plaintext"><table><tr><td class="gutter"><pre><span class="line">1</span><br><span class="line">2</span><br><span class="line">3</span><br><span class="line">4</span><br><span class="line">5</span><br><span class="line">6</span><br><span class="line">7</span><br></pre></td><td class="code"><pre><span class="line">DCLF FILE(FHSLIB/PFFHS)</span><br><span class="line">LOOP：</span><br><span class="line">RCVF</span><br><span class="line">MONMSG MSGID(CPF0864) EXEC(GOTO CMDLBL(EXIT))</span><br><span class="line">读取到每条记录后的处理语句</span><br><span class="line">GOTO CMDLBL(LOOP)</span><br><span class="line">EXIT：</span><br></pre></td></tr></table></figure>
<p>也就是说，信息CPF0864，即表示未读取到记录。<br>在CL 程序中声明文件使用DCLF 语句，一个CL 文件中只能声明一个文件，声明语句必须在CL 控制语句之前。使用声明的文件中的字段，同样需要在字段名前加上“&amp;” ；<br>CL 程序中，无法控制游标，无法对记录进行定位操作。所以CL 程序对文件的操作是比较弱的，  </p>
<h3 id="CL过程的组成部分"><a href="#CL过程的组成部分" class="headerlink" title="CL过程的组成部分"></a>CL过程的组成部分</h3><p>做为 CL 过程，每部分的源语句实际上都是一个 CL 命令，在典型的 CL 过程中它可以分成下列<br>几个基本部分：</p>
<table>
<thead>
<tr>
<th></th>
<th></th>
<th></th>
</tr>
</thead>
<tbody><tr>
<td>PGM 命令</td>
<td>PGM PARM(&amp;A)</td>
<td>这是一个可选值，表示过程的开始及可接收的参数</td>
</tr>
<tr>
<td>说明命令</td>
<td>（DCL，DCLF）</td>
<td>在使用变量时，说明命令要放在除 PGM 命令之外的所有命令前面</td>
</tr>
<tr>
<td>CL 处理命令</td>
<td>CHGVAR，SNDPGMMSG，OVRDBF，DLTF……</td>
<td>用来管理常量及变量</td>
</tr>
<tr>
<td>逻辑控制命令</td>
<td>IF，THEN，ELSE，DO，ENDDO，GOTO</td>
<td>用来控制过程内部的处理</td>
</tr>
<tr>
<td>内部函数</td>
<td>%SUB，%SWICH，%BIN</td>
<td>用于计算、关系或逻辑表达式</td>
</tr>
<tr>
<td>程序控制命令</td>
<td>CALL，RETURN</td>
<td>用来把控制传递给其它程序</td>
</tr>
<tr>
<td>过程控制命令</td>
<td>CALLPRC，RETURN</td>
<td>用来把控制传递给其它过程</td>
</tr>
<tr>
<td>ENDPGM 命令</td>
<td>ENDPGM</td>
<td>这是可选的，表示程序的结束</td>
</tr>
<tr>
<td>以上命令使用的顺序、组合及扩展都依据应用程序的逻辑和设计。在生成过程、处理命令时，引用的对象必须已经存在。</td>
<td></td>
<td></td>
</tr>
</tbody></table>
<h3 id="变量的使用"><a href="#变量的使用" class="headerlink" title="变量的使用"></a>变量的使用</h3><h4 id="变量说明"><a href="#变量说明" class="headerlink" title="变量说明"></a>变量说明</h4><p>使用 DCL 命令来定义变量及其属性、长度和初值。标准格式如下：</p>
<figure class="highlight plaintext"><table><tr><td class="gutter"><pre><span class="line">1</span><br><span class="line">2</span><br><span class="line">3</span><br></pre></td><td class="code"><pre><span class="line">                     * CHAR</span><br><span class="line">DCL VAR (变量名) TYPE * DEC     LEN (长度) VALUE(初值)</span><br><span class="line">                     * LGL</span><br></pre></td></tr></table></figure>
<p>使用 DCL 命令时，必须遵循的规则如下：</p>
<ol>
<li>CL 变量名必须以 &amp; 开始，后跟字符不多于 10 个，&amp; 后的第一个字符必须是字母，其<br>余的可以是字母或数字。</li>
<li>CL 变量值必须是：字符型最长为 9999 个字符；数值型为压缩十进制数，最长为 15 位，<br>其中小数位最长为 9 位；逻辑型为“0”或“1”，表示假或真。</li>
<li>CL 变量的缺省初值为：字符型为空，数值型为 0，逻辑型为“0”。</li>
<li>对于字符型和数值型，如果指定了初值而未指定长度，则缺省长度为初值长度。  </li>
</ol>
<h4 id="变量值中小写字符的限制"><a href="#变量值中小写字符的限制" class="headerlink" title="变量值中小写字符的限制"></a>变量值中小写字符的限制</h4><p>用作变量的保留值必须用大写字母表示，特别是当它们用引号括起来的时候。例如：</p>
<figure class="highlight plaintext"><table><tr><td class="gutter"><pre><span class="line">1</span><br><span class="line">2</span><br></pre></td><td class="code"><pre><span class="line">DCL VAR(&amp;LIB) TYPE(*CHAR) LEN(10) VALUE(‘*LIBL’)</span><br><span class="line">DLTPGM &amp;LIB/MY PROG</span><br></pre></td></tr></table></figure>
<p>注意：如果 VALUE 参数不使用引号，则小写是正确的。因为使用 SEU 编辑会自动转换成大写。</p>
<h4 id="变量赋值"><a href="#变量赋值" class="headerlink" title="变量赋值"></a>变量赋值</h4><p>使用 CHGVAR 命令给变量赋值，其值可改变成：</p>
<ol>
<li><p>常量： CHGVAR VAR（&amp;A） VALUE（0）</p>
</li>
<li><p>变量： CHGVAR VAR（&amp;A） VALUE（&amp;B）</p>
</li>
<li><p>计算量：CHGVAR VAR（&amp;A） VALUE（&amp;A+1）</p>
</li>
<li><p>函数量：CHGVAR VAR（&amp;A） VALUE(%SST(&amp;B 1 5))</p>
<pre><code>           CHGVAR VAR(%SST(&amp;A 1 5)) VALUE(&amp;B)
</code></pre>
</li>
</ol>
<p>赋值时应注意以下几点：</p>
<ol>
<li>对逻辑变量，被改变的值必须是一个逻辑值。</li>
<li>对数值变量，只能赋予十进制数，或者数字字符变量（包括小数点和正负号）。</li>
<li>对字符变量，既可接受字符，也可接受十进制数。赋十进制数时，该字符变量的值是右对齐，<br>前导补零，负号放在最左边。</li>
</ol>
<h4 id="使用goto命令及标号"><a href="#使用goto命令及标号" class="headerlink" title="使用goto命令及标号"></a>使用goto命令及标号</h4><p>GOTO 命令处理<strong>无条件转移</strong>，无论什么时候遇到 GOTO 命令，都要直接执行过程中的另一部分（用一个标号指出），这种转移不依赖表达式的求值。</p>
<p>转移到标号指定的语句后，从这个语句开始，继续顺序处理。它不返回到 GOTO 命令处，除非由另外指令特别指定返回。可以往前或向后转移，不能用GOTO 语句走到过程外的标号处。GOTO 命令没有参数，它只包含要转移语句的标号：<br>GOTO CMDLBL(标号)<br>标号标识过程中的语句，指出 GOTO 命令执行的方向，要使用 GOTO 语句，要转移的去处必须有一个标号：</p>
<figure class="highlight plaintext"><table><tr><td class="gutter"><pre><span class="line">1</span><br><span class="line">2</span><br><span class="line">3</span><br><span class="line">4</span><br><span class="line">5</span><br><span class="line">6</span><br><span class="line">7</span><br><span class="line">8</span><br><span class="line">9</span><br><span class="line">10</span><br><span class="line">11</span><br></pre></td><td class="code"><pre><span class="line">		PGM</span><br><span class="line">		.</span><br><span class="line">		.</span><br><span class="line">START: 	SNDRCVF RCDFMT(MENU)</span><br><span class="line">		IF (&amp;RESP=1) THEN(CALL CUS210)</span><br><span class="line">		.</span><br><span class="line">		.</span><br><span class="line">		GOTO START</span><br><span class="line">		.</span><br><span class="line">		.</span><br><span class="line">		ENDPGM</span><br></pre></td></tr></table></figure>
<p>此例中，标号是 START，标号最多 <strong>10 个字符</strong>，结尾必须有<strong>冒号</strong>，命令名和标号之间有空格</p>
<h4 id="使用IF指令"><a href="#使用IF指令" class="headerlink" title="使用IF指令"></a>使用IF指令</h4><p>IF 命令用来设置一个条件。如果为真，要规定在过程中运行的语句或一组语句，与 IF 一起可以规定 ELSE 命令，来规定条件不为真时执行的语句。命令包括一个表达式（它用来测试真、假）和一个 THEN 参数，它现定表达式为真时要采取的动作，IF 命令的格式为：</p>
<figure class="highlight plaintext"><table><tr><td class="gutter"><pre><span class="line">1</span><br></pre></td><td class="code"><pre><span class="line">IF COND(逻辑表达式) THEN(CL 命令)</span><br></pre></td></tr></table></figure>
<p>如果逻辑表达式的条件为真，处理 THEN 参数中的命令，它可以是一个命令，也可以是一组命令，如果条件不为真，运行下一个顺序的命令。COND 和 THEN 都是命令的键字，它们可以省略。下面是正确的写法：    </p>
<figure class="highlight plaintext"><table><tr><td class="gutter"><pre><span class="line">1</span><br><span class="line">2</span><br><span class="line">3</span><br></pre></td><td class="code"><pre><span class="line">IF COND(&amp;RESP=1) THEN(CALL CUS210)</span><br><span class="line">IF (&amp;A *EQ &amp;B) THEN(GOTO LABEL)</span><br><span class="line">IF (&amp;A=&amp;B) GOTO LABEL  </span><br></pre></td></tr></table></figure>

<p>在IF和键字或值（&amp;A..）之间要有空格，在键字之间不允许有空格，如果有，用左边的括号括住值  </p>
<h4 id="使用DO命令和DO组"><a href="#使用DO命令和DO组" class="headerlink" title="使用DO命令和DO组"></a>使用DO命令和DO组</h4><p>DO 命令处理一组命令，这一组命令是用 DO 和 ENDDO 之间的命令组成的，这组命令的处理通常是以有关命令为条件的。它经常与 IF、ELSE 或 MONMSG 一起使用。  </p>
<p><img src= "" data-lazy-src="https://gitee.com/Xyingtao/blogimage/raw/master/img/image-20201008112440634.png" alt="image-20201008112440634"></p>
<p>如果逻辑表达式（&amp;A=&amp;B）为真，则执行 DO 组，如果不为真，则跳过 DO 组，处理 ENDDO 后的命令。  </p>
<p><img src= "" data-lazy-src="https://gitee.com/Xyingtao/blogimage/raw/master/img/image-20201008112511915.png" alt="image-20201008112511915"></p>
<p>DO 组也能嵌入到另外的 DO 组中，最多可嵌套 10 层，下例中有三层，注意每个 DO 组都由ENDDO 结束。  </p>
<p><img src= "" data-lazy-src="https://gitee.com/Xyingtao/blogimage/raw/master/img/image-20201008112537771.png" alt="image-20201008112537771"></p>
<h4 id="使用else语句"><a href="#使用else语句" class="headerlink" title="使用else语句"></a>使用else语句</h4><p><img src= "" data-lazy-src="https://gitee.com/Xyingtao/blogimage/raw/master/img/image-20201008112718245.png" alt="image-20201008112718245"></p>
<h4 id="使用嵌套的-IF-命令"><a href="#使用嵌套的-IF-命令" class="headerlink" title="使用嵌套的 IF 命令"></a>使用嵌套的 IF 命令</h4><p>在 CL 程序设计中可允许 10 层嵌套。  </p>
<h4 id="使用-AND、-OR、和-NOT-操作"><a href="#使用-AND、-OR、和-NOT-操作" class="headerlink" title="使用*AND、*OR、和*NOT 操作"></a>使用*AND、*OR、和*NOT 操作</h4><p>*AND 和*OR 是逻辑操作的保留值，用来表示逻辑表达式操作之间的关系。*AND 可以用&amp;表示，<br>*OR 可以用￤表示，后边必须有一空格。  </p>
<p>除逻辑操作符外，有三类操作符：<br>_ 算术 (+, -, *, /)<br>_ 字符 (*CAT, ||, *BCAT, |&gt;, *TCAT, |&lt;)<br>_ 关系 (*EQ, =, *GT, &gt;, *LT, &lt;, *GE, &gt;=, *LE, &lt;=, *NE, ?=, *NG,?&gt;, *NL, ?&lt;)</p>
<p><img src= "" data-lazy-src="https://gitee.com/Xyingtao/blogimage/raw/master/img/image-20201008113012943.png" alt="image-20201008113012943"></p>
<h3 id="系统资源的获取"><a href="#系统资源的获取" class="headerlink" title="系统资源的获取"></a>系统资源的获取</h3><h4 id="日期格式转换命令：CVTDAT"><a href="#日期格式转换命令：CVTDAT" class="headerlink" title="日期格式转换命令：CVTDAT"></a>日期格式转换命令：CVTDAT</h4><h4 id="检索系统值命令：RTVSYSVAL"><a href="#检索系统值命令：RTVSYSVAL" class="headerlink" title="检索系统值命令：RTVSYSVAL"></a>检索系统值命令：RTVSYSVAL</h4><h4 id="检索配置源命令：RTVCFGSRC"><a href="#检索配置源命令：RTVCFGSRC" class="headerlink" title="检索配置源命令：RTVCFGSRC"></a>检索配置源命令：RTVCFGSRC</h4><h4 id="配置状态检索命令：RTVCFGSTS"><a href="#配置状态检索命令：RTVCFGSTS" class="headerlink" title="配置状态检索命令：RTVCFGSTS"></a>配置状态检索命令：RTVCFGSTS</h4><h4 id="检索网络属性的命令：RTVNETA"><a href="#检索网络属性的命令：RTVNETA" class="headerlink" title="检索网络属性的命令：RTVNETA"></a>检索网络属性的命令：RTVNETA</h4><h4 id="检索作业属性命令：RTVJOBA"><a href="#检索作业属性命令：RTVJOBA" class="headerlink" title="检索作业属性命令：RTVJOBA"></a>检索作业属性命令：RTVJOBA</h4><h4 id="检索对象描述命令：RTVOBJD"><a href="#检索对象描述命令：RTVOBJD" class="headerlink" title="检索对象描述命令：RTVOBJD"></a>检索对象描述命令：RTVOBJD</h4><h4 id="检索用户档案命令：RTVUSRPRF"><a href="#检索用户档案命令：RTVUSRPRF" class="headerlink" title="检索用户档案命令：RTVUSRPRF"></a>检索用户档案命令：RTVUSRPRF</h4><h2 id="程序间的通讯"><a href="#程序间的通讯" class="headerlink" title="程序间的通讯"></a>程序间的通讯</h2><p>程序间的通讯是指不同程序之间数据或参数的传递和交流。这种通讯可以出现在不同种类的程序中。如：RPG 与 C 语言，也可以出现在不同机器上，如：PC 与 AS/400。针对 OS/400 而言，通常程序间的通讯具有三种方式：</p>
<ul>
<li>CALL、RETURN 命令</li>
<li>数据队列通讯</li>
<li>数据域通讯  </li>
</ul>
<h3 id="CALL-命令的使用"><a href="#CALL-命令的使用" class="headerlink" title="CALL 命令的使用"></a>CALL 命令的使用</h3><p>调用程序： CALL PGM（PGMA） PARM（&amp;A &amp;B）<br>被调用程序：PGM PARM（&amp;C &amp;D）<br>有关 CALL 命令使用的几点说明：</p>
<ol>
<li>参数值可以是字符常量、数值常量、逻辑常量或 CL 常量，最多可达 40 个。</li>
<li>参数值以 CALL 命令中出现的顺序传送，这必须与被调用程序的参数顺序相匹配，变量<br>名不一定相同。</li>
<li>被调程序中的接收参数必须说明，但接收值不受变量说明中初值的影响。</li>
<li>接收参数值的改变会反映到调用程序中，但常量传送不会改变。</li>
<li>字符常量通常以 32 个字节传送，数字常量以 15.5 长度压缩格式传送。</li>
</ol>
</article><div class="tag_share"><div class="post-meta__tag-list"><a class="post-meta__tags" href="/tags/AS-400/">AS/400</a></div><div class="post_share"><div class="social-share" data-image="https://gitee.com/Xyingtao/blogimage/raw/master/img/AS400.jpg" data-sites="wechat,weibo,qq"></div><link rel="stylesheet" href="https://cdn.jsdelivr.net/npm/butterfly-extsrc/sharejs/dist/css/share.min.css" media="print" onload="this.media='all'"><script src="https://cdn.jsdelivr.net/npm/butterfly-extsrc/sharejs/dist/js/social-share.min.js" defer></script></div></div><div class="post-reward"><div class="reward-button"><i class="fas fa-qrcode"></i> 打赏</div><div class="reward-main"><ul class="reward-all"><li class="reward-item"><a href="https://s2.loli.net/2022/08/21/Ay5sujrkH1nLTwW.jpg" target="_blank"><img class="post-qr-code-img" src= "" data-lazy-src="https://s2.loli.net/2022/08/21/Ay5sujrkH1nLTwW.jpg" alt="Wechat"/></a><div class="post-qr-code-desc">Wechat</div></li></ul></div></div><nav class="pagination-post" id="pagination"><div class="prev-post pull-left"><a href="/posts/497301f/"><img class="prev-cover" src= "" data-lazy-src="https://gitee.com/Xyingtao/blogimage/raw/master/img/AS400.jpg" onerror="onerror=null;src='/img/404.jpg'" alt="cover of previous post"><div class="pagination-info"><div class="label">上一篇</div><div class="prev_info">DTAARA和SAVF</div></div></a></div><div class="next-post pull-right"><a href="/posts/b6df285e/"><img class="next-cover" src= "" data-lazy-src="https://gitee.com/Xyingtao/blogimage/raw/master/img/AS400.jpg" onerror="onerror=null;src='/img/404.jpg'" alt="cover of next post"><div class="pagination-info"><div class="label">下一篇</div><div class="next_info">RPG操作码汇总</div></div></a></div></nav><div class="relatedPosts"><div class="headline"><i class="fas fa-thumbs-up fa-fw"></i><span>相关推荐</span></div><div class="relatedPosts-list"><div><a href="/posts/b9ff8872/" title="10.21笔记"><img class="cover" src= "" data-lazy-src="https://gitee.com/Xyingtao/blogimage/raw/master/img/AS400.jpg" alt="cover"><div class="content is-center"><div class="date"><i class="far fa-calendar-alt fa-fw"></i> 2020-10-27</div><div class="title">10.21笔记</div></div></a></div><div><a href="/posts/881792ef/" title="10.22笔记"><img class="cover" src= "" data-lazy-src="https://gitee.com/Xyingtao/blogimage/raw/master/img/AS400.jpg" alt="cover"><div class="content is-center"><div class="date"><i class="far fa-calendar-alt fa-fw"></i> 2020-10-27</div><div class="title">10.22笔记</div></div></a></div><div><a href="/posts/9421881e/" title="AS&#x2F;400事务和日志"><img class="cover" src= "" data-lazy-src="https://gitee.com/Xyingtao/blogimage/raw/master/img/AS400.jpg" alt="cover"><div class="content is-center"><div class="date"><i class="far fa-calendar-alt fa-fw"></i> 2020-10-12</div><div class="title">AS&#x2F;400事务和日志</div></div></a></div><div><a href="/posts/6b557ec5/" title="AS&#x2F;400(二)"><img class="cover" src= "" data-lazy-src="https://gitee.com/Xyingtao/blogimage/raw/master/img/AS400.jpg" alt="cover"><div class="content is-center"><div class="date"><i class="far fa-calendar-alt fa-fw"></i> 2020-09-23</div><div class="title">AS&#x2F;400(二)</div></div></a></div><div><a href="/posts/6e639b06/" title="AS400(一)"><img class="cover" src= "" data-lazy-src="https://gitee.com/Xyingtao/blogimage/raw/master/img/AS400.jpg" alt="cover"><div class="content is-center"><div class="date"><i class="far fa-calendar-alt fa-fw"></i> 2020-09-22</div><div class="title">AS400(一)</div></div></a></div><div><a href="/posts/167fb41b/" title="AS&#x2F;400的历史"><img class="cover" src= "" data-lazy-src="https://gitee.com/Xyingtao/blogimage/raw/master/img/AS400.jpg" alt="cover"><div class="content is-center"><div class="date"><i class="far fa-calendar-alt fa-fw"></i> 2020-09-19</div><div class="title">AS&#x2F;400的历史</div></div></a></div></div></div><hr/><div id="post-comment"><div class="comment-head"><div class="comment-headline"><i class="fas fa-comments fa-fw"></i><span> 评论</span></div></div><div class="comment-wrap"><div><div id="twikoo-wrap"></div></div></div></div></div><div class="aside-content" id="aside-content"><div class="card-widget card-info"><div class="is-center"><div class="avatar-img"><img src= "" data-lazy-src="https://s2.loli.net/2022/08/20/hk9Zvq4YRsIcnrw.jpg" onerror="this.onerror=null;this.src='/img/friend_404.gif'" alt="avatar"/></div><div class="author-info__name">樱桃先生</div><div class="author-info__description">樱桃先生的博客小站</div></div><div class="card-info-data site-data is-center"><a href="/archives/"><div class="headline">文章</div><div class="length-num">78</div></a><a href="/tags/"><div class="headline">标签</div><div class="length-num">65</div></a><a href="/categories/"><div class="headline">分类</div><div class="length-num">21</div></a></div><a id="card-info-btn" target="_blank" rel="noopener" href="https://ytblogpic.oss-cn-guangzhou.aliyuncs.com/typoraWechat.jpeg"><i class="fab fa-weixin"></i><span>加为好友</span></a></div><div class="card-widget card-announcement"><div class="item-headline"><i class="fas fa-bullhorn fa-shake"></i><span>公告</span></div><div class="announcement_content">欢迎光临樱桃小窝🍒～评论系统日常崩溃，没有找到长期稳定好用的组件。</div></div><div class="sticky_layout"><div class="card-widget" id="card-toc"><div class="item-headline"><i class="fas fa-stream"></i><span>目录</span><span class="toc-percentage"></span></div><div class="toc-content"><ol class="toc"><li class="toc-item toc-level-1"><a class="toc-link" href="#%E6%8E%A7%E5%88%B6%E8%AF%AD%E8%A8%80-CL"><span class="toc-number">1.</span> <span class="toc-text">控制语言(CL)</span></a><ol class="toc-child"><li class="toc-item toc-level-2"><a class="toc-link" href="#%E6%A6%82%E5%BF%B5"><span class="toc-number">1.1.</span> <span class="toc-text">概念</span></a></li><li class="toc-item toc-level-2"><a class="toc-link" href="#CL%E7%BC%96%E7%A8%8B"><span class="toc-number">1.2.</span> <span class="toc-text">CL编程</span></a><ol class="toc-child"><li class="toc-item toc-level-3"><a class="toc-link" href="#%E7%A8%8B%E5%BA%8F%E7%9A%84%E5%BC%80%E5%A7%8B%E4%B8%8E%E7%BB%93%E6%9D%9F"><span class="toc-number">1.2.1.</span> <span class="toc-text">程序的开始与结束</span></a></li><li class="toc-item toc-level-3"><a class="toc-link" href="#%E5%8F%98%E9%87%8F%E5%8F%8A%E5%85%B6%E5%AE%9A%E4%B9%89"><span class="toc-number">1.2.2.</span> <span class="toc-text">变量及其定义</span></a></li><li class="toc-item toc-level-3"><a class="toc-link" href="#%E5%B8%B8%E7%94%A8%E5%91%BD%E4%BB%A4"><span class="toc-number">1.2.3.</span> <span class="toc-text">常用命令</span></a></li><li class="toc-item toc-level-3"><a class="toc-link" href="#CL%E8%BF%87%E7%A8%8B%E7%9A%84%E7%BB%84%E6%88%90%E9%83%A8%E5%88%86"><span class="toc-number">1.2.4.</span> <span class="toc-text">CL过程的组成部分</span></a></li><li class="toc-item toc-level-3"><a class="toc-link" href="#%E5%8F%98%E9%87%8F%E7%9A%84%E4%BD%BF%E7%94%A8"><span class="toc-number">1.2.5.</span> <span class="toc-text">变量的使用</span></a><ol class="toc-child"><li class="toc-item toc-level-4"><a class="toc-link" href="#%E5%8F%98%E9%87%8F%E8%AF%B4%E6%98%8E"><span class="toc-number">1.2.5.1.</span> <span class="toc-text">变量说明</span></a></li><li class="toc-item toc-level-4"><a class="toc-link" href="#%E5%8F%98%E9%87%8F%E5%80%BC%E4%B8%AD%E5%B0%8F%E5%86%99%E5%AD%97%E7%AC%A6%E7%9A%84%E9%99%90%E5%88%B6"><span class="toc-number">1.2.5.2.</span> <span class="toc-text">变量值中小写字符的限制</span></a></li><li class="toc-item toc-level-4"><a class="toc-link" href="#%E5%8F%98%E9%87%8F%E8%B5%8B%E5%80%BC"><span class="toc-number">1.2.5.3.</span> <span class="toc-text">变量赋值</span></a></li><li class="toc-item toc-level-4"><a class="toc-link" href="#%E4%BD%BF%E7%94%A8goto%E5%91%BD%E4%BB%A4%E5%8F%8A%E6%A0%87%E5%8F%B7"><span class="toc-number">1.2.5.4.</span> <span class="toc-text">使用goto命令及标号</span></a></li><li class="toc-item toc-level-4"><a class="toc-link" href="#%E4%BD%BF%E7%94%A8IF%E6%8C%87%E4%BB%A4"><span class="toc-number">1.2.5.5.</span> <span class="toc-text">使用IF指令</span></a></li><li class="toc-item toc-level-4"><a class="toc-link" href="#%E4%BD%BF%E7%94%A8DO%E5%91%BD%E4%BB%A4%E5%92%8CDO%E7%BB%84"><span class="toc-number">1.2.5.6.</span> <span class="toc-text">使用DO命令和DO组</span></a></li><li class="toc-item toc-level-4"><a class="toc-link" href="#%E4%BD%BF%E7%94%A8else%E8%AF%AD%E5%8F%A5"><span class="toc-number">1.2.5.7.</span> <span class="toc-text">使用else语句</span></a></li><li class="toc-item toc-level-4"><a class="toc-link" href="#%E4%BD%BF%E7%94%A8%E5%B5%8C%E5%A5%97%E7%9A%84-IF-%E5%91%BD%E4%BB%A4"><span class="toc-number">1.2.5.8.</span> <span class="toc-text">使用嵌套的 IF 命令</span></a></li><li class="toc-item toc-level-4"><a class="toc-link" href="#%E4%BD%BF%E7%94%A8-AND%E3%80%81-OR%E3%80%81%E5%92%8C-NOT-%E6%93%8D%E4%BD%9C"><span class="toc-number">1.2.5.9.</span> <span class="toc-text">使用*AND、*OR、和*NOT 操作</span></a></li></ol></li><li class="toc-item toc-level-3"><a class="toc-link" href="#%E7%B3%BB%E7%BB%9F%E8%B5%84%E6%BA%90%E7%9A%84%E8%8E%B7%E5%8F%96"><span class="toc-number">1.2.6.</span> <span class="toc-text">系统资源的获取</span></a><ol class="toc-child"><li class="toc-item toc-level-4"><a class="toc-link" href="#%E6%97%A5%E6%9C%9F%E6%A0%BC%E5%BC%8F%E8%BD%AC%E6%8D%A2%E5%91%BD%E4%BB%A4%EF%BC%9ACVTDAT"><span class="toc-number">1.2.6.1.</span> <span class="toc-text">日期格式转换命令：CVTDAT</span></a></li><li class="toc-item toc-level-4"><a class="toc-link" href="#%E6%A3%80%E7%B4%A2%E7%B3%BB%E7%BB%9F%E5%80%BC%E5%91%BD%E4%BB%A4%EF%BC%9ARTVSYSVAL"><span class="toc-number">1.2.6.2.</span> <span class="toc-text">检索系统值命令：RTVSYSVAL</span></a></li><li class="toc-item toc-level-4"><a class="toc-link" href="#%E6%A3%80%E7%B4%A2%E9%85%8D%E7%BD%AE%E6%BA%90%E5%91%BD%E4%BB%A4%EF%BC%9ARTVCFGSRC"><span class="toc-number">1.2.6.3.</span> <span class="toc-text">检索配置源命令：RTVCFGSRC</span></a></li><li class="toc-item toc-level-4"><a class="toc-link" href="#%E9%85%8D%E7%BD%AE%E7%8A%B6%E6%80%81%E6%A3%80%E7%B4%A2%E5%91%BD%E4%BB%A4%EF%BC%9ARTVCFGSTS"><span class="toc-number">1.2.6.4.</span> <span class="toc-text">配置状态检索命令：RTVCFGSTS</span></a></li><li class="toc-item toc-level-4"><a class="toc-link" href="#%E6%A3%80%E7%B4%A2%E7%BD%91%E7%BB%9C%E5%B1%9E%E6%80%A7%E7%9A%84%E5%91%BD%E4%BB%A4%EF%BC%9ARTVNETA"><span class="toc-number">1.2.6.5.</span> <span class="toc-text">检索网络属性的命令：RTVNETA</span></a></li><li class="toc-item toc-level-4"><a class="toc-link" href="#%E6%A3%80%E7%B4%A2%E4%BD%9C%E4%B8%9A%E5%B1%9E%E6%80%A7%E5%91%BD%E4%BB%A4%EF%BC%9ARTVJOBA"><span class="toc-number">1.2.6.6.</span> <span class="toc-text">检索作业属性命令：RTVJOBA</span></a></li><li class="toc-item toc-level-4"><a class="toc-link" href="#%E6%A3%80%E7%B4%A2%E5%AF%B9%E8%B1%A1%E6%8F%8F%E8%BF%B0%E5%91%BD%E4%BB%A4%EF%BC%9ARTVOBJD"><span class="toc-number">1.2.6.7.</span> <span class="toc-text">检索对象描述命令：RTVOBJD</span></a></li><li class="toc-item toc-level-4"><a class="toc-link" href="#%E6%A3%80%E7%B4%A2%E7%94%A8%E6%88%B7%E6%A1%A3%E6%A1%88%E5%91%BD%E4%BB%A4%EF%BC%9ARTVUSRPRF"><span class="toc-number">1.2.6.8.</span> <span class="toc-text">检索用户档案命令：RTVUSRPRF</span></a></li></ol></li></ol></li><li class="toc-item toc-level-2"><a class="toc-link" href="#%E7%A8%8B%E5%BA%8F%E9%97%B4%E7%9A%84%E9%80%9A%E8%AE%AF"><span class="toc-number">1.3.</span> <span class="toc-text">程序间的通讯</span></a><ol class="toc-child"><li class="toc-item toc-level-3"><a class="toc-link" href="#CALL-%E5%91%BD%E4%BB%A4%E7%9A%84%E4%BD%BF%E7%94%A8"><span class="toc-number">1.3.1.</span> <span class="toc-text">CALL 命令的使用</span></a></li></ol></li></ol></li></ol></div></div><div class="card-widget card-recent-post"><div class="item-headline"><i class="fas fa-history"></i><span>最新文章</span></div><div class="aside-list"><div class="aside-list-item"><a class="thumbnail" href="/posts/4995/" title="顺德好友小聚"><img src= "" data-lazy-src="https://ytblogpic.oss-cn-guangzhou.aliyuncs.com/blog-common.png" onerror="this.onerror=null;this.src='/img/404.jpg'" alt="顺德好友小聚"/></a><div class="content"><a class="title" href="/posts/4995/" title="顺德好友小聚">顺德好友小聚</a><time datetime="2023-05-07T13:41:30.660Z" title="更新于 2023-05-07 21:41:30">2023-05-07</time></div></div><div class="aside-list-item"><a class="thumbnail" href="/posts/51438/" title="旅游归来的周末"><img src= "" data-lazy-src="https://ytblogpic.oss-cn-guangzhou.aliyuncs.com/blog-common.png" onerror="this.onerror=null;this.src='/img/404.jpg'" alt="旅游归来的周末"/></a><div class="content"><a class="title" href="/posts/51438/" title="旅游归来的周末">旅游归来的周末</a><time datetime="2023-05-06T06:06:54.933Z" title="更新于 2023-05-06 14:06:54">2023-05-06</time></div></div><div class="aside-list-item"><a class="thumbnail" href="/posts/34851/" title="与好友的广西之旅"><img src= "" data-lazy-src="https://ytblogpic.oss-cn-guangzhou.aliyuncs.com/blog-common.png" onerror="this.onerror=null;this.src='/img/404.jpg'" alt="与好友的广西之旅"/></a><div class="content"><a class="title" href="/posts/34851/" title="与好友的广西之旅">与好友的广西之旅</a><time datetime="2023-05-02T08:08:36.497Z" title="更新于 2023-05-02 16:08:36">2023-05-02</time></div></div><div class="aside-list-item"><a class="thumbnail" href="/posts/36794/" title="信用卡业务汇总"><img src= "" data-lazy-src="https://s2.loli.net/2022/08/22/kpfRHFaCWDTNAu1.png" onerror="this.onerror=null;this.src='/img/404.jpg'" alt="信用卡业务汇总"/></a><div class="content"><a class="title" href="/posts/36794/" title="信用卡业务汇总">信用卡业务汇总</a><time datetime="2023-05-02T06:30:21.691Z" title="更新于 2023-05-02 14:30:21">2023-05-02</time></div></div><div class="aside-list-item"><a class="thumbnail" href="/posts/53652/" title="项目管理笔记"><img src= "" data-lazy-src="https://ytblogpic.oss-cn-guangzhou.aliyuncs.com/blog-common.png" onerror="this.onerror=null;this.src='/img/404.jpg'" alt="项目管理笔记"/></a><div class="content"><a class="title" href="/posts/53652/" title="项目管理笔记">项目管理笔记</a><time datetime="2023-05-02T06:29:26.948Z" title="更新于 2023-05-02 14:29:26">2023-05-02</time></div></div></div></div></div></div></main><footer id="footer" style="background-image: url('https://gitee.com/Xyingtao/blogimage/raw/master/img/AS400.jpg')"><div id="footer-wrap"><div class="copyright">&copy;2020 - 2023 By 樱桃先生</div><div class="footer_custom_text">一切都是最好的安排</div></div></footer></div><div id="rightside"><div id="rightside-config-hide"><button id="readmode" type="button" title="阅读模式"><i class="fas fa-book-open"></i></button><button id="darkmode" type="button" title="浅色和深色模式转换"><i class="fas fa-adjust"></i></button><button id="hide-aside-btn" type="button" title="单栏和双栏切换"><i class="fas fa-arrows-alt-h"></i></button></div><div id="rightside-config-show"><button id="rightside_config" type="button" title="设置"><i class="fas fa-cog fa-spin"></i></button><button class="close" id="mobile-toc-button" type="button" title="目录"><i class="fas fa-list-ul"></i></button><a id="to_comment" href="#post-comment" title="直达评论"><i class="fas fa-comments"></i></a><button id="go-up" type="button" title="回到顶部"><i class="fas fa-arrow-up"></i></button></div></div><div><script src="/js/utils.js"></script><script src="/js/main.js"></script><script src="https://cdn.jsdelivr.net/npm/@fancyapps/ui/dist/fancybox.umd.min.js"></script><script src="https://cdn.jsdelivr.net/npm/vanilla-lazyload/dist/lazyload.iife.min.js"></script><div class="js-pjax"><script>(()=>{
  const init = () => {
    twikoo.init(Object.assign({
      el: '#twikoo-wrap',
      envId: 'https://twikoo-seven-fawn.vercel.app',
      region: '',
      onCommentLoaded: function () {
        btf.loadLightbox(document.querySelectorAll('#twikoo .tk-content img:not(.tk-owo-emotion)'))
      }
    }, null))
  }

  const getCount = () => {
    const countELement = document.getElementById('twikoo-count')
    if(!countELement) return
    twikoo.getCommentsCount({
      envId: 'https://twikoo-seven-fawn.vercel.app',
      region: '',
      urls: [window.location.pathname],
      includeReply: false
    }).then(function (res) {
      countELement.innerText = res[0].count
    }).catch(function (err) {
      console.error(err);
    });
  }

  const runFn = () => {
    init()
    
  }

  const loadTwikoo = () => {
    if (typeof twikoo === 'object') {
      setTimeout(runFn,0)
      return
    } 
    getScript('https://cdn.jsdelivr.net/npm/twikoo/dist/twikoo.all.min.js').then(runFn)
  }

  if ('Twikoo' === 'Twikoo' || !true) {
    if (true) btf.loadComment(document.getElementById('twikoo-wrap'), loadTwikoo)
    else loadTwikoo()
  } else {
    window.loadOtherComment = () => {
      loadTwikoo()
    }
  }
})()</script></div><script>window.addEventListener('load', () => {
  const changeContent = (content) => {
    if (content === '') return content

    content = content.replace(/<img.*?src="(.*?)"?[^\>]+>/ig, '[图片]') // replace image link
    content = content.replace(/<a[^>]+?href=["']?([^"']+)["']?[^>]*>([^<]+)<\/a>/gi, '[链接]') // replace url
    content = content.replace(/<pre><code>.*?<\/pre>/gi, '[代码]') // replace code
    content = content.replace(/<[^>]+>/g,"") // remove html tag

    if (content.length > 150) {
      content = content.substring(0,150) + '...'
    }
    return content
  }

  const getComment = () => {
    const runTwikoo = () => {
      twikoo.getRecentComments({
        envId: 'https://twikoo-seven-fawn.vercel.app',
        region: '',
        pageSize: 6,
        includeReply: true
      }).then(function (res) {
        const twikooArray = res.map(e => {
          return {
            'content': changeContent(e.comment),
            'avatar': e.avatar,
            'nick': e.nick,
            'url': e.url + '#' + e.id,
            'date': new Date(e.created).toISOString()
          }
        })

        saveToLocal.set('twikoo-newest-comments', JSON.stringify(twikooArray), 10/(60*24))
        generateHtml(twikooArray)
      }).catch(function (err) {
        const $dom = document.querySelector('#card-newest-comments .aside-list')
        $dom.innerHTML= "无法获取评论，请确认相关配置是否正确"
      })
    }

    if (typeof twikoo === 'object') {
      runTwikoo()
    } else {
      getScript('https://cdn.jsdelivr.net/npm/twikoo/dist/twikoo.all.min.js').then(runTwikoo)
    }
  }

  const generateHtml = array => {
    let result = ''

    if (array.length) {
      for (let i = 0; i < array.length; i++) {
        result += '<div class=\'aside-list-item\'>'

        if (true) {
          const name = 'data-lazy-src'
          result += `<a href='${array[i].url}' class='thumbnail'><img ${name}='${array[i].avatar}' alt='${array[i].nick}'></a>`
        }
        
        result += `<div class='content'>
        <a class='comment' href='${array[i].url}' title='${array[i].content}'>${array[i].content}</a>
        <div class='name'><span>${array[i].nick} / </span><time datetime="${array[i].date}">${btf.diffDate(array[i].date, true)}</time></div>
        </div></div>`
      }
    } else {
      result += '没有评论'
    }

    let $dom = document.querySelector('#card-newest-comments .aside-list')
    $dom.innerHTML= result
    window.lazyLoadInstance && window.lazyLoadInstance.update()
    window.pjax && window.pjax.refresh($dom)
  }

  const newestCommentInit = () => {
    if (document.querySelector('#card-newest-comments .aside-list')) {
      const data = saveToLocal.get('twikoo-newest-comments')
      if (data) {
        generateHtml(JSON.parse(data))
      } else {
        getComment()
      }
    }
  }

  newestCommentInit()
  document.addEventListener('pjax:complete', newestCommentInit)
})</script><script src="/js/jquery.min.js"></script><div class="aplayer no-destroy" data-id="5225697049" data-server="netease" data-type="playlist" data-fixed="true" data-autoplay="false" data-mini="true" data-lrctype="-1"> </div><script src="https://cdn.jsdelivr.net/gh/xiabo2/CDN@latest/fishes.js"></script><link rel="stylesheet" href="/css/utils.css"><script defer="defer" id="ribbon" src="https://cdn.jsdelivr.net/npm/butterfly-extsrc/dist/canvas-ribbon.min.js" size="150" alpha="0.6" zIndex="-1" mobile="false" data-click="true"></script><link rel="stylesheet" href="https://cdn.jsdelivr.net/npm/aplayer/dist/APlayer.min.css" media="print" onload="this.media='all'"><script src="https://cdn.jsdelivr.net/npm/aplayer/dist/APlayer.min.js"></script><script src="https://cdn.jsdelivr.net/npm/butterfly-extsrc/metingjs/dist/Meting.min.js"></script><script src="https://cdn.jsdelivr.net/npm/pjax/pjax.min.js"></script><script>let pjaxSelectors = ["head > title","#config-diff","#body-wrap","#rightside-config-hide","#rightside-config-show",".js-pjax"]

var pjax = new Pjax({
  elements: 'a:not([target="_blank"])',
  selectors: pjaxSelectors,
  cacheBust: false,
  analytics: false,
  scrollRestoration: false
})

document.addEventListener('pjax:send', function () {

  // removeEventListener scroll 
  window.tocScrollFn && window.removeEventListener('scroll', window.tocScrollFn)
  window.scrollCollect && window.removeEventListener('scroll', scrollCollect)

  typeof preloader === 'object' && preloader.initLoading()
  document.getElementById('rightside').style.cssText = "opacity: ''; transform: ''"
  
  if (window.aplayers) {
    for (let i = 0; i < window.aplayers.length; i++) {
      if (!window.aplayers[i].options.fixed) {
        window.aplayers[i].destroy()
      }
    }
  }

  typeof typed === 'object' && typed.destroy()

  //reset readmode
  const $bodyClassList = document.body.classList
  $bodyClassList.contains('read-mode') && $bodyClassList.remove('read-mode')

  typeof disqusjs === 'object' && disqusjs.destroy()
})

document.addEventListener('pjax:complete', function () {
  window.refreshFn()

  document.querySelectorAll('script[data-pjax]').forEach(item => {
    const newScript = document.createElement('script')
    const content = item.text || item.textContent || item.innerHTML || ""
    Array.from(item.attributes).forEach(attr => newScript.setAttribute(attr.name, attr.value))
    newScript.appendChild(document.createTextNode(content))
    item.parentNode.replaceChild(newScript, item)
  })

  GLOBAL_CONFIG.islazyload && window.lazyLoadInstance.update()

  typeof chatBtnFn === 'function' && chatBtnFn()
  typeof panguInit === 'function' && panguInit()

  // google analytics
  typeof gtag === 'function' && gtag('config', '', {'page_path': window.location.pathname});

  // baidu analytics
  typeof _hmt === 'object' && _hmt.push(['_trackPageview',window.location.pathname]);

  typeof loadMeting === 'function' && document.getElementsByClassName('aplayer').length && loadMeting()

  // prismjs
  typeof Prism === 'object' && Prism.highlightAll()

  typeof preloader === 'object' && preloader.endLoading()
})

document.addEventListener('pjax:error', (e) => {
  if (e.request.status === 404) {
    pjax.loadUrl('/404.html')
  }
})</script><script async data-pjax src="//busuanzi.ibruce.info/busuanzi/2.3/busuanzi.pure.mini.js"></script></div><script src="/live2dw/lib/L2Dwidget.min.js?094cbace49a39548bed64abff5988b05"></script><script>L2Dwidget.init({"model":{"jsonPath":"/live2dw/assets/hijiki.model.json"},"display":{"position":"right","width":170,"height":280},"mobile":{"show":true},"log":false,"pluginJsPath":"lib/","pluginModelPath":"assets/","pluginRootPath":"live2dw/","tagMode":false});</script></body></html>